home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Fonts / PostScript® Samples / bubble graphics < prev    next >
Encoding:
Text File  |  1987-02-01  |  899 b   |  46 lines  |  [TEXT/ttxt]
  1.  
  2.  
  3. /rot
  4.     { 3 -1 roll
  5.     } def
  6. /genRand    % returns a random number between 0 and 1
  7.     { rand        % returns 0 < rand < 1
  8.     100 mod
  9.     100 div
  10.     } def
  11. % returns a random (x,y) value on the page
  12. /randPoint
  13.     { 612 genRand mul
  14.     792 genRand mul
  15.     }def
  16. % makes the bubble pattern by randomly drawing circles
  17. % throughout the page
  18. /bubble
  19.     {0 0 moveto
  20.     70    {placeCircle}    repeat
  21.     }def
  22. % draws a circle with the given radius at the (x,y) position
  23. % (radius, (x,y)-center)
  24. /circle
  25.     {rot
  26.     0 360 arc
  27.     genRand 0.5 gt            % randomly decides whether to fill
  28.         {genRand setgray    % in the circle or not
  29.             fill
  30.             0 setgray
  31.         } if
  32.         stroke
  33.     }def
  34. % place a circle somewhere on the page
  35. % it decides randomly how big the circle will be
  36. /placeCircle
  37.     {100 genRand mul
  38.     randPoint circle
  39.     }def
  40. 0 0 moveto
  41. bubble
  42. showpage
  43.  
  44. Download complete.  Turn off Capture File.
  45.  
  46. Download another file (Y/N)?